"0","s.probs$probs <- c(.9,rep(((1-.9)/19),19))
sampled.inds <- table(sample(s.probs$species,100,prob = s.probs$probs, replace =TRUE))
Rarefied.richness <- ddply(inds,.(N),each(EsN.calc))
lowE <- Rarefied.richness
lowE$model <- rep(\"low\",nrow(lowE))"
